home *** CD-ROM | disk | FTP | other *** search
/ Spawn Figure Collection / spawn collection cd.iso / movies / collection.dir / 00001_Script_èâä²âª next >
Text File  |  1997-12-23  |  2KB  |  72 lines
  1. -- ΦΓΣ▓Γ¬
  2.  
  3. on exitFrame
  4.   global gCDPATH
  5.   set gCDPATH to serchCD()
  6.   global gLocalPath
  7.   
  8.   if voidP(gLocalPath) then
  9.     set gLocalPath to the PathName
  10.   end if
  11.   
  12.   global lSeries
  13.   set lSeries = []
  14.   global gNowSeries
  15.   global gNowTitle
  16.   global gNowGroup
  17.   
  18.   global gEdited
  19.   set gEdited to FALSE
  20.   
  21.   -- ╔G╔f╔B╔b╔g╔╟┼[╔h╟├Θ╠≤Ç╟¥Θ╢╟▌╔t╔Γ╔O
  22.   global gEditMode
  23.   
  24.   global gNowListPtr
  25.   global lSortedT
  26.   -- ╔J╔σ╔∞╔g╔O╔π┼[╔v╟├∞íΘ═τ─±₧┼i╔G╔f╔B╔b╔g╔╟┼[╔h╟╝Θg╟º╟├╟µ┼j
  27.   global gProtect
  28.   global gGroup
  29.   global gCheckBox
  30.   global gCheck
  31.   global gbitmap
  32.   
  33.   -- ╔T╔E╔∞╔h≤p∩£Ωε
  34.   global SndMember
  35.   global SndNumber
  36.   global SndList
  37.   global SLevel
  38.   set SLevel to 3
  39.   set SndList to ["m1.wav","m4.wav","m6.wav"]
  40.   newWave "m1.wav"
  41.   set SndNumber to 1
  42.   puppetSound member"sound"
  43.   set the loop of member "sound"  to TRUE
  44.   set the SoundLevel to SLevel
  45.   set the SoundEnabled to TRUE
  46.   
  47.   -- ╔v╔π╔_╔E╔∞╔Σ╔X╔g∩ñδ≡≤p╔Σ╔X╔g∩£Ωε
  48.   set lSortedT = [:]
  49.   set gNowListPtr = 1
  50.   
  51.   --  set myFile = new(xtra "fileio")      -- Create an instance of FileIO
  52.   --  set fileName = displayOpen(myFile)   -- Display Open Dialog and return the fileName
  53.   --  openFile(myFile, fileName, 1)        -- Open the file
  54.   --  set theFile = readLine(myFile)       -- Read the file and return a string to Lingo
  55.   --  closeFile(myFile)                    -- Close the file
  56.   --  set myFile = 0                       -- Dispose of the instance
  57.   
  58.   ReadDataFile "collection.dat"
  59.   --  WriteDataFile "test.dat"
  60.   MakeSortList
  61.   resetDisp
  62.   set gNowSeries to 1
  63.   set gNowTitle to 1
  64.   set gNowGroup to 1
  65. end
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.